home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
SIMMOUSE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-05
|
350b
|
25 lines
{-- This program draws a frame then waits for a mouse button to be pressed }
{-- then disposes of it. }
Uses
TEGLIntr,
TEGLUnit,
TEGLMain;
BEGIN
EasyTEGL;
EasyOut;
PushImage(1,1,100,100);
ShadowBox(1,1,100,100);
ShowMouse;
WHILE Mouse_Buttons = 0 DO;
PopImage;
TEGLSupervisor;
END.